﻿Public Class BEmarcadorXdiagnostico

#Region "Declaración de variables"

    Private codDiagnostico As Integer
    Private codMarcador As Integer
    
#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodDiagnostico As Object, _
            ByVal pCodMarcador As Object)

        Me._codDiagnostico = pCodDiagnostico
        Me._codMarcador = pCodMarcador

    End Sub

    Public Property _codDiagnostico() As Integer
        Get
            Return Me.codDiagnostico
        End Get
        Set(ByVal value As Integer)
            Me.codDiagnostico = value
        End Set
    End Property

    Public Property _codMarcador() As Integer
        Get
            Return Me.codMarcador
        End Get
        Set(ByVal value As Integer)
            Me.codMarcador = value
        End Set
    End Property

End Class
